	SUBROUTINE RECLOCK(*,*)
C
C	TRIES TO READ LOCKED RECORD 5 TIMES AT 1 SECOND INTERVALS
C
	COMMON NAP,IOS
C
	LOGICAL*1 BTIME(8)
C
	CHARACTER ATIM*13
C
	DATA ATIM/'0 00:00:01.00'/
C
!	WRITE(6,2) NAP,IOS
!2	FORMAT(1X,'RECORD LOCKED, NAP = ',I2,', IOS = ',I2)
C
	ISTAT=SYS$BINTIM(ATIM,BTIM)	! GET BINARY PAUSE
	RETVAR=SYS$SCHDWK(,,BTIM,)
	RETVAR=SYS$HIBER()	! FALL ASLEEP FOR 1 SECOND
	NAP=NAP+1
	IF(NAP.LT.10) RETURN 1
	WRITE(6,1) IOS
1	FORMAT(1X,'ERROR ON READ IN RECLOCK, IOS = ',I2)
	NAP=0
	RETURN 2
	END
